(current-language-environment): Fix setter function.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index c2874981750f06724590dc24cf229d5bedb0fee7..82f0ed15c345521cf4f745608141b4444cfffdee 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1037,7 +1037,7 @@ This hook is mainly used for cancelling the effect of
 
 (defcustom current-language-environment "English"
   "The last language environment specified with `set-language-environment'."
-  :set 'set-language-environment
+  :set (lambda (symbol value) (set-language-environment value))
   :initialize 'custom-initialize-default
   :group 'mule
   :type 'string)